“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


**F ILE**1D**COMPRESS 


PP RR 
PP RR 
PP RR 
PP RR 


a 
a 
a 
a 
a 
a 
a 
a 


PPPPPPPP 
PPPPPPPP 


a 
a 
a 
a 
a 
a 
a 
a 


PP 
PP 
PP 
PP 
PP 
PP 


EEFFEEEESEEEES 
== 

SEEESSEEEEEESE 

coe eee ee e8s88 | 


e e 


8888888888 


VWYYVVYVVYVUYUYYUWY 
BYYVUYVYVUUYUY 


LLLLLLLLLL 
LLLLLLLLLL 


MEW 


a3 
-—o 


ViFWN—OOONOUS wT 


MMMM 2 223234545 


SS8SS8ssssssssss 


BIFAEUN ASSO 


S8S88383ssss 


w 


SOON USWN—OO 


3 
: 
8 

; 


NOU EWN 


ee 
e 
a7 
* 
e 
y 
t 
® 
t 
® 
e 
® 
2 
* 
® 
* 
* 
+ 
a 
* 
* 
ee 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


igen} 00:18 58 


Version: *v04-000' 


ARABS AARAAALALALAALALAASLAAALALA LAL ELAR REESE S ALE EASES EERE RRR RRR R ERR 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS 7 'o ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE - THE TERMS OF SUCH LICENSE _ A. THE 
INCLUSION OF THe E ABOVE COPYRIGHT NOT Ice. THIS sof Tw WARE OR OTHER 
COPIES THEREOF a Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
bg Ba + I TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
seepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR BRIAN PORTER CREATION DATE 11-0CT-1979 
Functional description: 

Provides the field width for integers and character strings. 
Modified by: 


v03-001 BP0001 Brian Porter, 24-AUG-1982 
Made 32 bit unsigned numbers work. 


INTEGER FUNCTION COMPRESS4*4 (INTEGER4) 


INTEGER®4 INTEGERS 
INTEGER®4 INTEGER 


INTEGER = LIBSEXT2V(0,31, INTEGERS) 
COMPRESS4 = 1 + INT(LOGIO(REAL(MAX(1,INTEGER)))) 
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COMPRESS4 1b-Sep-1984 90:18:38 VAX=-11 FORTRAN it Pe 5 


-56 Page 2 
DISKSVMSMASTER: CERF .SRC]COMPRESS.FOR; 1 


p08 IF (INTEGERS .LT. 0) COMPRESS4 = COMPRESS4 + 1 
Rea RETURN 
2 END 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 63 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 24 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 95 


ENTRY POINTS 
Address Type Name 
0-00000000 I*4 COMPRESS4 


VARIABLES 
Address Type Name Address Type Name 
2-00000004 I*4 INTEGER AP-000000048 I1*4 INTEGERS 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 LIBSEXTZV R*4 MTHSALOG10 
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INTEGER FUNCTION COMPRESSF®4 (REAL8,DECIMAL_PLACES) 


REAL REAL& 
BYTE DECIMAL _PLACES 


COMPRESSF = (2 + DECIMAL_PLACES) * JINT(ALOG10(AMAX1(1.0,REAL8))) 
RETURN 
END 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 43. PIC CON REL LCL SHR RD NOWRT LONG 
Total Space Allocated 47 


ENTRY POINTS 
Address Type Name 
0-00000000 I*4 COMPRESSF 


VARIABLES 
Address Type Name Address Type Name 
AP-000000088 L*1 DECIMAL_PLACES AP-00000004@ R*4 REALS 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
R*4 MTH$ALO0G10 
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2 SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
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5 INTEGER FUNCTION COMPRESSC*4 (STRING) 
10 CHARACTER*(*) STRING 
i} 
Gor§ COMPRESSC = max(1,(MIN(33,(LIBSLOCC('®',STRING)=1)))) 
0015 RETURN 
gnig 
001 END 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 54 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA § PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 3 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 88 


ENTRY POINTS 
Address Type Name 
0-00000000 I*4 COMPRESSC 


VARIABLES 
Address Type Name 
AP-00000004@ CHAR STRING 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I*4 LIBSLOCC 


DEC 
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COMPILATION STATISTICS 


COMPRESSC ifese 93071382 $9:58:38 — UESEUmSMASTER: PERE SecacOMPREss.FoReie” 


COMMAND QUALIFIERS 


FORTRAN /LIS=L1S$:COMPRESS/OBJ=0BJ$:COMPRESS MSRC$: COMPRESS 


/CHECK= (NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG= (NOS YRAOL § TRACEB 
J STANDARD= (NOSYNT AX NOSOUR CE FORM) 
5 R PROCESSORS NOINCLODE ,MAP 
7877 /NOG -FLOATING 7/14 SOPTIAT IE. /WARNINGS /NOD_ LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


Run Time: 


iP 
Elapsed Time: 6. 
Page Faults: 11 
Dynamic Memory: 164 pages 


4 seconds 
’ seconds 
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